home *** CD-ROM | disk | FTP | other *** search
/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / pc / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / DirectShow / Editing / DexterVB / frmTimeline.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-08  |  18.7 KB  |  493 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTimeline 
  3.    Caption         =   "TimeLine Menu"
  4.    ClientHeight    =   4605
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   6015
  8.    Icon            =   "frmTimeline.frx":0000
  9.    LinkTopic       =   "Form2"
  10.    LockControls    =   -1  'True
  11.    ScaleHeight     =   4605
  12.    ScaleWidth      =   6015
  13.    StartUpPosition =   1  'CenterOwner
  14.    Begin VB.Frame fraFixture 
  15.       Height          =   4065
  16.       Left            =   75
  17.       TabIndex        =   12
  18.       Top             =   0
  19.       Width           =   5865
  20.       Begin VB.TextBox txtDirty 
  21.          BeginProperty DataFormat 
  22.             Type            =   1
  23.             Format          =   "0"
  24.             HaveTrueFalseNull=   0
  25.             FirstDayOfWeek  =   0
  26.             FirstWeekOfYear =   0
  27.             LCID            =   1033
  28.             SubFormatType   =   1
  29.          EndProperty
  30.          Height          =   375
  31.          Left            =   1710
  32.          TabIndex        =   5
  33.          ToolTipText     =   "Not Setable By User / read Only"
  34.          Top             =   2625
  35.          Width           =   3975
  36.       End
  37.       Begin VB.TextBox txtDefaultFPS 
  38.          BeginProperty DataFormat 
  39.             Type            =   1
  40.             Format          =   "0"
  41.             HaveTrueFalseNull=   0
  42.             FirstDayOfWeek  =   0
  43.             FirstWeekOfYear =   0
  44.             LCID            =   1033
  45.             SubFormatType   =   1
  46.          EndProperty
  47.          Height          =   375
  48.          Left            =   1710
  49.          TabIndex        =   4
  50.          ToolTipText     =   "Default Frames Per Second"
  51.          Top             =   2145
  52.          Width           =   3975
  53.       End
  54.       Begin VB.TextBox txtDuration 
  55.          BeginProperty DataFormat 
  56.             Type            =   1
  57.             Format          =   "0"
  58.             HaveTrueFalseNull=   0
  59.             FirstDayOfWeek  =   0
  60.             FirstWeekOfYear =   0
  61.             LCID            =   1033
  62.             SubFormatType   =   1
  63.          EndProperty
  64.          Height          =   375
  65.          Left            =   1710
  66.          TabIndex        =   3
  67.          ToolTipText     =   "Not Setable By User / read Only"
  68.          Top             =   1665
  69.          Width           =   3975
  70.       End
  71.       Begin VB.TextBox txtEffectsEnabled 
  72.          BeginProperty DataFormat 
  73.             Type            =   1
  74.             Format          =   "0"
  75.             HaveTrueFalseNull=   0
  76.             FirstDayOfWeek  =   0
  77.             FirstWeekOfYear =   0
  78.             LCID            =   1033
  79.             SubFormatType   =   1
  80.          EndProperty
  81.          Height          =   375
  82.          Left            =   1710
  83.          TabIndex        =   2
  84.          ToolTipText     =   "0 Disabled / 1 Enabled"
  85.          Top             =   1185
  86.          Width           =   3975
  87.       End
  88.       Begin VB.TextBox txtTransitionsEnabled 
  89.          BeginProperty DataFormat 
  90.             Type            =   1
  91.             Format          =   "0"
  92.             HaveTrueFalseNull=   0
  93.             FirstDayOfWeek  =   0
  94.             FirstWeekOfYear =   0
  95.             LCID            =   1033
  96.             SubFormatType   =   1
  97.          EndProperty
  98.          Height          =   375
  99.          Left            =   1710
  100.          TabIndex        =   1
  101.          ToolTipText     =   "0 Disabled / 1 Enabled"
  102.          Top             =   705
  103.          Width           =   3975
  104.       End
  105.       Begin VB.TextBox txtInsertMode 
  106.          BeginProperty DataFormat 
  107.             Type            =   1
  108.             Format          =   "0"
  109.             HaveTrueFalseNull=   0
  110.             FirstDayOfWeek  =   0
  111.             FirstWeekOfYear =   0
  112.             LCID            =   1033
  113.             SubFormatType   =   1
  114.          EndProperty
  115.          Height          =   375
  116.          Left            =   1710
  117.          TabIndex        =   0
  118.          ToolTipText     =   "1 Insert / 2 Overlay"
  119.          Top             =   225
  120.          Width           =   3975
  121.       End
  122.       Begin VB.ComboBox cmbDefaultTransition 
  123.          Height          =   315
  124.          Left            =   1710
  125.          Sorted          =   -1  'True
  126.          TabIndex        =   6
  127.          Top             =   3105
  128.          Width           =   3975
  129.       End
  130.       Begin VB.ComboBox cmbDefaultEffect 
  131.          Height          =   315
  132.          Left            =   1710
  133.          Sorted          =   -1  'True
  134.          TabIndex        =   7
  135.          Top             =   3585
  136.          Width           =   3975
  137.       End
  138.       Begin VB.Label lblDefaultEffect 
  139.          Caption         =   "DefaultEffect"
  140.          Height          =   255
  141.          Left            =   150
  142.          TabIndex        =   20
  143.          Top             =   3705
  144.          Width           =   1095
  145.       End
  146.       Begin VB.Label lblDefaultTransition 
  147.          Caption         =   "DefaultTransition"
  148.          Height          =   255
  149.          Left            =   150
  150.          TabIndex        =   19
  151.          Top             =   3225
  152.          Width           =   1455
  153.       End
  154.       Begin VB.Label lblDirty 
  155.          Caption         =   "Dirty"
  156.          Height          =   255
  157.          Left            =   150
  158.          TabIndex        =   18
  159.          Top             =   2745
  160.          Width           =   975
  161.       End
  162.       Begin VB.Label lblDefaultFPS 
  163.          Caption         =   "DefaultFPS"
  164.          Height          =   255
  165.          Left            =   150
  166.          TabIndex        =   17
  167.          Top             =   2265
  168.          Width           =   1575
  169.       End
  170.       Begin VB.Label lblDuration 
  171.          Caption         =   "Duration"
  172.          Height          =   255
  173.          Left            =   150
  174.          TabIndex        =   16
  175.          Top             =   1785
  176.          Width           =   615
  177.       End
  178.       Begin VB.Label lblEffectsEnable 
  179.          Caption         =   "EffectsEnable"
  180.          Height          =   255
  181.          Left            =   150
  182.          TabIndex        =   15
  183.          Top             =   1305
  184.          Width           =   1935
  185.       End
  186.       Begin VB.Label lblTransitionsEnable 
  187.          Caption         =   "TransitionsEnable"
  188.          Height          =   255
  189.          Left            =   150
  190.          TabIndex        =   14
  191.          Top             =   825
  192.          Width           =   1575
  193.       End
  194.       Begin VB.Label lblInsertMode 
  195.          Caption         =   "InsertMode"
  196.          Height          =   255
  197.          Left            =   150
  198.          TabIndex        =   13
  199.          Top             =   345
  200.          Width           =   1095
  201.       End
  202.    End
  203.    Begin VB.CommandButton cmdCancel 
  204.       Caption         =   "Cancel"
  205.       Height          =   340
  206.       Left            =   4695
  207.       TabIndex        =   9
  208.       Top             =   4170
  209.       Width           =   1215
  210.    End
  211.    Begin VB.CommandButton cmdOk 
  212.       Caption         =   "OK"
  213.       Default         =   -1  'True
  214.       Height          =   340
  215.       Left            =   3495
  216.       TabIndex        =   8
  217.       Top             =   4170
  218.       Width           =   1095
  219.    End
  220.    Begin VB.TextBox DefaultTransition 
  221.       BeginProperty DataFormat 
  222.          Type            =   1
  223.          Format          =   "0"
  224.          HaveTrueFalseNull=   0
  225.          FirstDayOfWeek  =   0
  226.          FirstWeekOfYear =   0
  227.          LCID            =   1033
  228.          SubFormatType   =   1
  229.       EndProperty
  230.       Height          =   375
  231.       Left            =   7200
  232.       TabIndex        =   10
  233.       TabStop         =   0   'False
  234.       Top             =   150
  235.       Visible         =   0   'False
  236.       Width           =   975
  237.    End
  238.    Begin VB.TextBox DefaultEffect 
  239.       BeginProperty DataFormat 
  240.          Type            =   1
  241.          Format          =   "0"
  242.          HaveTrueFalseNull=   0
  243.          FirstDayOfWeek  =   0
  244.          FirstWeekOfYear =   0
  245.          LCID            =   1033
  246.          SubFormatType   =   1
  247.       EndProperty
  248.       Height          =   375
  249.       Left            =   7200
  250.       TabIndex        =   11
  251.       TabStop         =   0   'False
  252.       Top             =   600
  253.       Visible         =   0   'False
  254.       Width           =   975
  255.    End
  256. Attribute VB_Name = "frmTimeline"
  257. Attribute VB_GlobalNameSpace = False
  258. Attribute VB_Creatable = False
  259. Attribute VB_PredeclaredId = True
  260. Attribute VB_Exposed = False
  261. '*******************************************************************************
  262. '*       This is a part of the Microsoft DXSDK Code Samples.
  263. '*       Copyright (C) 1999-2001 Microsoft Corporation.
  264. '*       All rights reserved.
  265. '*       This source code is only intended as a supplement to
  266. '*       Microsoft Development Tools and/or SDK documentation.
  267. '*       See these sources for detailed information regarding the
  268. '*       Microsoft samples programs.
  269. '*******************************************************************************
  270. Option Explicit
  271. Option Base 0
  272. Option Compare Text
  273. Private m_intUnloadMode As Integer
  274. Private Const DIALOG_TITLE = "Timeline Help"
  275.             
  276.             
  277. ' **************************************************************************************************************************************
  278. ' * PUBLIC INTERFACE- PROPERTIES
  279.             ' ******************************************************************************************************************************
  280.             ' * procedure name: UnloadMode
  281.             ' * procedure description:  Returns an integer specifying the method from which this dialog was last unloaded
  282.             ' *
  283.             ' ******************************************************************************************************************************
  284.             Public Property Get UnloadMode() As Integer
  285.             On Local Error GoTo ErrLine
  286.             'return the value to the client
  287.             UnloadMode = m_intUnloadMode
  288.             Exit Property
  289.             
  290. ErrLine:
  291.             Err.Clear
  292.             Exit Property
  293.             End Property
  294.             
  295.             
  296. ' **************************************************************************************************************************************
  297. ' * PRIVATE INTERFACE- FORM EVENT HANDLERS
  298.             ' ******************************************************************************************************************************
  299.             ' * procedure name: Form_Load
  300.             ' * procedure description:  Occurs when a form is loaded.
  301.             ' *
  302.             ' ******************************************************************************************************************************
  303.             Private Sub Form_Load()
  304.             On Local Error GoTo ErrLine
  305.             'set default value(s)
  306.             With Me
  307.                 .txtInsertMode.Text = vbNullString
  308.                 .txtTransitionsEnabled.Text = vbNullString
  309.                 .txtEffectsEnabled.Text = vbNullString
  310.                 .txtDuration.Text = vbNullString
  311.                 .txtDefaultFPS.Text = vbNullString
  312.                 .txtDirty.Text = vbNullString
  313.                 .cmbDefaultTransition.Text = vbNullString
  314.                 .cmbDefaultEffect.Text = vbNullString
  315.             End With
  316.             
  317.             With cmbDefaultTransition
  318.                 .AddItem "Barn"
  319.                 .AddItem "Blinds"
  320.                 .AddItem "BurnFilm"
  321.                 .AddItem "CenterCurls"
  322.                 .AddItem "ColorFade"
  323.                 .AddItem "Compositor"
  324.                 .AddItem "Curls"
  325.                 .AddItem "Curtains"
  326.                 .AddItem "Fade"
  327.                 .AddItem "FadeWhite"
  328.                 .AddItem "FlowMotion"
  329.                 .AddItem "GlassBlock"
  330.                 .AddItem "Grid"
  331.                 .AddItem "Inset"
  332.                 .AddItem "Iris"
  333.                 .AddItem "Jaws"
  334.                 .AddItem "Lens"
  335.                 .AddItem "LightWipe"
  336.                 .AddItem "Liquid"
  337.                 .AddItem "PageCurl"
  338.                 .AddItem "PeelABCD"
  339.                 .AddItem "Pixelate"
  340.                 .AddItem "RadialWipe"
  341.                 .AddItem "Ripple"
  342.                 .AddItem "RollDown"
  343.                 .AddItem "Slide"
  344.                 .AddItem "SMPTE Wipe"
  345.                 .AddItem "Spiral"
  346.                 .AddItem "Stretch"
  347.                 .AddItem "Threshold"
  348.                 .AddItem "Twister"
  349.                 .AddItem "Vacuum"
  350.                 .AddItem "Water"
  351.                 .AddItem "Wheel"
  352.                 .AddItem "Wipe"
  353.                 .AddItem "WormHole"
  354.                 .AddItem "Zigzag"
  355.             End With
  356.             
  357.             With cmbDefaultEffect
  358.                 .AddItem "BasicImage"
  359.                 .AddItem "Blur"
  360.                 .AddItem "Chroma"
  361.                 .AddItem "DropShadow"
  362.                 .AddItem "Emboss"
  363.                 .AddItem "Engrave"
  364.                 .AddItem "Fade"
  365.                 .AddItem "Pixelate"
  366.             End With
  367.             Exit Sub
  368.             
  369. ErrLine:
  370.             Err.Clear
  371.             Exit Sub
  372.             End Sub
  373.             
  374.             
  375.             ' ******************************************************************************************************************************
  376.             ' * procedure name: Form_QueryUnload
  377.             ' * procedure description:  Occurs before a form or application closes.
  378.             ' *
  379.             ' ******************************************************************************************************************************
  380.             Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  381.             On Local Error GoTo ErrLine
  382.             
  383.             Select Case UnloadMode
  384.                 Case vbFormControlMenu
  385.                          '0 The user chose the Close command from the Control menu on the form.
  386.                          Cancel = 1: Me.Visible = False
  387.                 Case vbFormCode
  388.                          '1 The Unload statement is invoked from code.
  389.                 Case vbAppWindows
  390.                          '2 The current Microsoft Windows operating environment session is ending.
  391.                 Case vbAppTaskManager
  392.                          '3 The Microsoft Windows Task Manager is closing the application.
  393.                          End
  394.                 Case vbFormMDIForm
  395.                          '4 An MDI child form is closing because the MDI form is closing.
  396.                 Case vbFormOwner
  397.                          '5 A form is closing because its owner is closing
  398.             End Select
  399.             Exit Sub
  400.             
  401. ErrLine:
  402.             Err.Clear
  403.             Exit Sub
  404.             End Sub
  405.             
  406.             
  407.             ' ******************************************************************************************************************************
  408.             ' * procedure name: Form_Unload
  409.             ' * procedure description:  Occurs when a form is about to be removed from the screen.
  410.             ' *
  411.             ' ******************************************************************************************************************************
  412.             Private Sub Form_Unload(Cancel As Integer)
  413.             On Local Error GoTo ErrLine
  414.             With Me
  415.                .Move 0 - (Screen.Width * 8), 0 - (Screen.Height * 8): .Visible = False
  416.             End With
  417.             Exit Sub
  418.             
  419. ErrLine:
  420.             Err.Clear
  421.             Exit Sub
  422.             End Sub
  423. ' **************************************************************************************************************************************
  424. ' * PRIVATE INTERFACE- CONTROL EVENT HANDLERS
  425.             ' ******************************************************************************************************************************
  426.             ' * procedure name: cmdOk_Click
  427.             ' * procedure description:  fired intrinsically when this form is loaded
  428.             ' *
  429.             ' ******************************************************************************************************************************
  430.             Private Sub cmdOk_Click()
  431.             Dim nResultant As VbMsgBoxResult
  432.             On Local Error GoTo ErrLine
  433.             
  434.             'validation code
  435.             If frmTimeline.txtInsertMode.Text = vbNullString Then
  436.                 nResultant = MsgBox("You Must Set txtInsertMode", , DIALOG_TITLE)
  437.                 frmTimeline.txtInsertMode.SetFocus
  438.                 Exit Sub
  439.             End If
  440.             If frmTimeline.txtTransitionsEnabled.Text = vbNullString Then
  441.                 nResultant = MsgBox("You Must Set txtTransitionsEnabled", , DIALOG_TITLE)
  442.                 frmTimeline.txtTransitionsEnabled.SetFocus
  443.                 Exit Sub
  444.             End If
  445.             If frmTimeline.txtEffectsEnabled.Text = vbNullString Then
  446.                 nResultant = MsgBox("You Must Set txtEffectsEnabled", , DIALOG_TITLE)
  447.                 frmTimeline.txtEffectsEnabled.SetFocus
  448.                 Exit Sub
  449.             End If
  450.             If frmTimeline.txtDefaultFPS.Text = vbNullString Then
  451.                 nResultant = MsgBox("You Must Set txtDefaultFPS", , DIALOG_TITLE)
  452.                 frmTimeline.txtDefaultFPS.SetFocus
  453.                 Exit Sub
  454.             End If
  455.             If frmTimeline.cmbDefaultTransition.Text = vbNullString Then
  456.                 nResultant = MsgBox("You Must Set cmbDefaultTransition", , DIALOG_TITLE)
  457.                 frmTimeline.cmbDefaultTransition.SetFocus
  458.                 Exit Sub
  459.             End If
  460.             If frmTimeline.cmbDefaultEffect.Text = vbNullString Then
  461.                 nResultant = MsgBox("You Must Set cmbDefaultEffect", , DIALOG_TITLE)
  462.                 frmTimeline.cmbDefaultEffect.SetFocus
  463.                 Exit Sub
  464.             End If
  465.                 
  466.             'hide the dialog
  467.             Me.Visible = False
  468.             Exit Sub
  469.             
  470. ErrLine:
  471.             Err.Clear
  472.             Exit Sub
  473.             End Sub
  474.             
  475.             
  476.             
  477.             ' ******************************************************************************************************************************
  478.             ' * procedure name: cmdCancel_Click
  479.             ' * procedure description:  occures when the user presses the 'Cancel' command button
  480.             ' *
  481.             ' ******************************************************************************************************************************
  482.             Private Sub cmdCancel_Click()
  483.             On Local Error GoTo ErrLine
  484.             'hide the dialog
  485.             Me.Visible = False
  486.             m_intUnloadMode = 1
  487.             Exit Sub
  488.             
  489. ErrLine:
  490.             Err.Clear
  491.             Exit Sub
  492.             End Sub
  493.